home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_09_(08-1984).d64 / high card (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  43 lines
  1. 5 REM DISABLE INTERRUPTS AND REVEAL CHARACTER ROM
  2. 10 REM*NECESSARY INITIAL INFORMATION*
  3. 20 DOLLARS=500
  4. 25 REM COPY CHARACTER SET DOWN TO RAM
  5. 29 PRINT "PLEASE WAIT 30 SECONDS"
  6. 30 PRINT " WITH WHOM DO I HAVE THE PLEASURE"
  7. 40 PRINT " OF PLAYING HIGH CARD SLICE?"
  8. 50 INPUT NAME$
  9. 55 REM COVER UP CHARACTER ROM AND REENABLE INTERRUPTS
  10. 60 PRINT " HIGH CARD WINS IN THIS GAME!"
  11. 70 DIM SUITS$(4),CARD$(14):FOR I=11 TO 14: READ CARD$(I):NEXT I
  12. 75 REM ENABLE NEW CHARACTER SET
  13. 80 FOR I=1 TO 4: READ SUIT$(I): NEXT I
  14. 85 REM POKE IN HAPPY FACE OVER "A"
  15. 90 REM
  16. 100 REM*MAIN PROGRAM LOOP*
  17. 110 PRINT:PRINT" YOU HAVE $" DOLLARS
  18. 120 IF DOLLARS<=0 THEN PRINT" THE GAME IS OVER. YOU ARE OUT OF CASH.":END
  19. 130 PRINT"WHAT IS YOUR BET";:INPUT BET
  20. 140 IF DOLLARS<BET THEN PRINT" YOU ONLY HAVE $"DOLLARS"TO BET,"NAME$:GOTO 130
  21. 150 YOURCARD=0:YURSUIT=SUIT=0
  22. 160 PLAYER$=NAME$
  23. 170 GOSUB300
  24. 180 YOURCARD=CARD:YURSUIT=SUIT
  25. 190 PLAYER$=" THE COMPUTER"
  26. 195 REM EACH NUMBER IS ONE ROW OF THE DOTS THAT MAKE UP THE FACE
  27. 200 GOSUB300
  28. 210 IF CARD>YOURCARD THEN GOTO 240
  29. 220 IF CARD=YOURCARD THEN PRINT " A TIE!":GOTO 100
  30. 230 PRINT NAME$ " WINS": DOLLARS= DOLLARS + BET:GOTO 100
  31. 240 PRINT "[160]THE COMPUTER WINS": DOLLARS= DOLLARS-BET:GOTO 100
  32. 290 REM
  33. 300 REM*SUBROUTINE TO DRAW THE CARDS*
  34. 310 CARD=INT(RND(5)*+13)+2:SUIT=INT(RND(5)*4)+1
  35. 320 IF CARD=YOURCARD AND SUIT=YURSUIT THEN 300:REM NO IDENTICAL DRAWS
  36. 330 IF CARD<11 THEN CARD$(CARD)=STR$(CARD)
  37. 340 PRINT PLAYER$ " DRAWS THE " CARD$(CARD) " OF " SUITS$(SUIT)
  38. 350 RETURN
  39. 490 REM
  40. 500 REM* DATA TABLE*
  41. 510 DATA JACK,QUEEN,KING,ACE
  42. 520 DATA CLUBS,DIAMONDS,HEARTS,SPADES
  43.